home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / game / text / EAC14b.lha / EAC / Developers / Tutorials / Tutorial_06.EAC < prev    next >
Text File  |  1980-11-30  |  1KB  |  48 lines
  1. .-------------------------------------------------------------------------.
  2. |  This demo shows you how to use the bottom status bar. You can use the  |
  3. | status bar for displaying things such as your score, inventory & health |
  4. `-------------------------------------------------------------------------'
  5.  
  6. NOBUSY:
  7. DEC:knife=0
  8. WINDOW:The knife demo
  9.  
  10. .-------------------------------------------------------------------------.
  11. |                         Start of the adventure...                       |
  12. `-------------------------------------------------------------------------'
  13.  
  14. PAGE:START
  15. CLR:
  16. On the table you can see a knife.
  17.  
  18. PAGE:BackToStart
  19. CLRTEXT:
  20. ADDTEXT:Items: 
  21. ADDTEXTIF:knife=1:Knife
  22. ADDOPTIF:knife=0:Pick up the knife:Pick_It
  23. ADDOPTIF:knife=1:Drop the knife:Drop_It
  24.  
  25. ENDPAGE:
  26.  
  27. .-------------------------------------------------------------------------.
  28. |                         Let us pick up that knife                       |
  29. `-------------------------------------------------------------------------'
  30.  
  31. PAGE:Pick_It
  32. You pick up the knife.
  33.  
  34. LET:knife=1
  35. GOTO:BackToStart
  36. ENDPAGE:
  37.  
  38. .-------------------------------------------------------------------------.
  39. |                            Let's drop the knife                         |
  40. `-------------------------------------------------------------------------'
  41.  
  42. PAGE:Drop_It
  43. LET:knife=0
  44. You drop the knife.
  45.  
  46. GOTO:BackToStart
  47. ENDPAGE:
  48.